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MODULE CNTRL (LANGUAGE (B 
MAIN _= ST 
oon =! 


BEGIN 


' 
SRR RRA RARER ARERAARER AREER AREER EEE EERE EEE EERE AERA 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
* 
® 
® 
4 ® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. x 
® 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
iz CORPORATION. * 
® 

® 

® 

* 

® 
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'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
° eo SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
6 Cs enaelient beatae tainieaineaateioicaialiietaiiaiaainishinbendadmigeinatamiaaehiiansamitiie 
b08 $44 
003 ! 
003 ' FACILITY: MTAACP 
003 ! 
003 !' ABSTRACT: 
$ O03 Main control module for MTAACP 
8 0038 1 | ENVIRONMENT: 
) 0039 ! 
0 0040 } Starlet operating system, including privileged system services 
1 0041 ! and internal exec routines. 
§ B0e§ ‘ 
004 ten 
4 Bote 
5 045 ! 
6 004 ! 
4 744 : AUTHOR: D. H. GILLESPIE, CREATION DATE: 15-MAY-1977 
49 0949 ; MODIFIED BY: 
34 0081 i v03-001 MMD0152 es Dumont 26-Apr-1983 9:08 
26 O36 } Add reference to HOR4 Label 
54 $084 i v02-009 pmw00054 David Michael Walp 30-Nov-1981 
55 0055 1 Fixed bug in exception handler which IOSM_REVERSE as 
28 Bos IOSM_ACCESS, causing system crash 
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v04- Sep-19 

; 8 0038 ] V02-008 REFORMAT Maria del C. Nasr 30-Jun-1980 

; 60 $060 7% A0007 =mCN0003 Maria del C. Nasr 25-Sep-1979 16:32 

; 6) 0061 1! Add HDR3 processing 

3 6¢ b6¢ 1! 

; 6 065 1 !ee 

; 664 064 1 

: 65 Boe? 1 LIBRARY ‘SYSSLIBRARY:L1B.L32'; 

; 666 B96 1 

; 67 943 1 REQUIRE ‘SRC$:MTADEF .B32'; 

; oe 0451 1 

: 9 Beeg 1 FORWARD ROUTINE 

; 0 04 1 CANCEL : COMMON_CALL NOVALUE, ! signal cancel error 
ae 0454 1 EXCEPT_HNDLR : COMMON_CALL NOVALUE, ! handles exceptions 
:- z 0455 1 MTA_CONTROL : NOVALUE NOPRES, ! main control 

3 ie Bees : RETORN_ALL_ERR : COMMON_CALL NOVALUE; ! return all blocked io in error 
rane 0458 1 


Be Se Se Se Se Ge Ge Se Ge Ge Os Se Be Se Be Ss Ge Se Se Ss Oe Se Se Oe Se Se Se ee Oe Se Se Se Sees ee 
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GLOBAL ROUTINE STARTUP : NOVALUE = 
144 


i 
detail DESCRIPTION: 


XEC mode. 
CALLING SEQUENCE: 
STARTUP () 


INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 

ROUTINE VALUE: 
none 


SIDE EFFECTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
} MTAACP Locked into memory, control started 
le 


N 1 
1e$ep-1986 13:4 


is routine is the startup point for MTAACP. 
arts of the MTAACP into memory and then calls the control loop in 


BEGIN 
EXEC_CALL (MTA_CONTROL) ! end of 
END; 
-TITLE 
- IDENT 
-EXTRN 
-PSECT 
0000 00000 -ENTRY 
7E D4 00002 CLRL 
5E DD 00004 PUSHL 
0000vV CF 9F 00006 PUSHAB 
00000000G 9F 03 FB QOOOA CALLS 
04 00011 RET 


18 bytes, Routine Base: S$CODE$ + 0000 


0494 1 


1 
6 


148 VAX=11_BLiss-32_v4.0-742 Page 3 
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SMASTER: CMTAA 


It locks the appropriate 


routine startup 


CNTRL 

\v04-000\ 

SYSSCMEXEC 

SCODES ,NOWRT ,2 
STARTUP, Save nothing 
-(SP) 


MTA_CONTROL 
#3, “QWSYSSCMEXEC 


— 
SN 


o 
oO 


2 
CHIR 18-Sep-1986 02:114 
ROUTINE MTA_CONTROL : NOVALUE NOPRES = 
'e4¢ 
1 


i FUNCTIONAL DESCRIPTION: 
Main control module for MTAACP 


CALLING SEQUENCE: 
MTA_CONTROL () 


INPUT PARAMETERS: 
none 


ze V4.0=742 


-U= Page 4 
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<= 
; 


PSII IIE £ 
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SOWONAUESWN (OO OOVNAUS WN" OOONOUW 


IMPLICIT INPUTS: 
ACP QUEUE 
OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 


none 


SIDE EFFECTS: 
MTAACP functions executed 


BEGIN 
EXTERNAL REGISTER 
COMMON : 


GLOBAL 
the following are not initialized for each request 


QUEUE _HEAD : REF BBLOCK, ' pier to MTAACP input queue 
DISK OCB : REF BBLOCK, ' UCB of SYSSDISK 

10_ CRANNEL ' channel # for 1/0 
MATL_CHANNEL, ! channel # for mailbox 
FREE_PAGE_HEAD : VECTOR [2], ! free page list head 
LAST_PAGE, ! last page of program region in virtual memory 


the following are initialized for each request 
USER_STATUS : VECTOR fS]. 
10_STATUS : VECTOR ° 
10_ PACKET : REF BBLOCK, 
CURRENT_UCB 

CURRENT_WCB 
HDR1 


' i/o status to user 

' status block used by mtaacp 
' addr of i/o request packet 
' addr of current ucb 

!' addr of current web 

' address hdri label (eof!) 

' address pare pepe: eata? 

' address hdr5 Label (EOF 5) 

' address hdr4 label (EOF4) 
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BBLOCK, 
BBLOCK, 


; 3 
Soe 
3 7 
aE 
3; (7 
3 Y 
; 4 
3% 
ss 
ae | 
; 3 
Ee 
Pky 
a 
cis 
% 
3 3 
3 
a | 
oe 
c-.3 
. 
Cy 
.*% 
a 
3. 1 
; 1 
3; (9 
3 3 
3 -} 
3 
; 3 
oF 
; 3 
= 
4 
; 4% 
:>% 
3; 6% 
3 1 
_ 
3; 
ee | 
; 
; 3 
;¥ 
; ¥ 
s 
- 
a 
3 ¥ 
3; 
; 
3 4 
> 
;. 4 
; 4 
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14-Sep-19 46:3 DISKSVMSMASTER: CMTAACP.SRCICNTRL.B32 ) 


(3 


RRR a 5 LOCAL_FIB : BBLOCK CFIBSK_MTALEN), ! copy of fib : 
; 176 Me IMPURE _END : VECTOR r64® = om ; 
: (174 a2 GLOBAL LITERAL : 
3 12? 8228 IMPURE_SIZE = IMPURE_END = USER_STATUS; ‘ 
3 77 $886 LOCAL : : 
; «178 0559 FUNCTION; ! function code and qualifiers ‘ 
: 179 8260 : 
; 180 561 OWN ; 
; 4 2 8298 RANGE : VECTOR C2] INITIAL (0, &X'FFFFFFFF'); ‘ 
; 188 ae EXTERNAL ROUTINE : 
> «184 0565 END_OF VOL : NOPRES ! end-of-volume processing : 
; 189 0566 : L$GET_REQ, ! get next request : 
; 186 0567 INIT_MTAACP, ' acp initialization ; 
; 187 0568 2 DON ! complete i/o processing : 
: 188 0569 2 MTA_ACCESS : NOPRES, i access a file : 
: «#189 0570 2 MTA_ACPCNTRL : NOPRES, ! mtaacp control functions : 
; 190 0571 2 MTA_CREATE : NOPRES, ! create a file : 
; 1 beng § MTA_DEACCESS OPRES, ' deaccess a file : 
: 192 057 TA_MODIFY NOPRES, ' modify a file ; 
: 193 0574 2 MTA_MOUNT : NOPRES ! mount a volume : 
i 194 0975 ¢ SYSSPURGWS : ADDRESSING_MODE (ABSOLUTE); : 
: 196 0577 2 ! enable except_hndlr 3 
r- oer 0578 § ! F 
: 198 0579 BEGIN : 
3; 199 0580 3 3 
; 200 0581 3 BUILTIN 3 
: 201 O256 FP; 5 
; $06 058 3 
; 0584 FP = EXCEPT_HNDLR; 

; 204 0585 2 ; Ne 

; 205 0586 2 KERNEL_CALL(INIT_MTAACP); ! initialize acp, one time only 

: 206 0587 2 SYSSPURGWS (RANGED ; 

: 207 0588 

; 208 0589 WHILE 1 

: 209 0590 dO 

; 210 0591 BEGIN 

3 si! B26 

; $ig B207 initialize impure area and set user status to success 

; 14 $232 CHSFILL(O, JMPURE_SIZE, USER_STATUS); 

s 215 596 USER_STATUS(O) = T; 

: 216 0597 10 PACKET = GET_REQ(): ! get a request 

: v7 098 FUNCTION = .10_PACKETCIRPSV_FCODE); 

3 4 bens - CURRENT VCBCVCBSV _CANCEL 103 AND .FUNCTION NEQ IO$_DEACCESS 

° 3 0608 CANCEL () 

. oo: - 

: 34 at IF .FUNCTION EQL IO$_READPBLK OR .FUNCTION EQL 10$_WRITEPBLK 

; 58 $09 END_OF _VOL() ! end of volume processing 

s del 0608 ELSE 


inaperincinnhaimaebatiandininbpeitichinapentertinnestin 
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: 328 0609 4 BEGIN 
; 230 a611 4 CASE_.FUNCTION FROM IO$_ACCESS TO 10$_MOUNT OF ; 
; 231 61g 4 SET 
: § 0615 4 : 
; 614 4 C10$_ACCESS] : MTA_ACCESS(); 
: 4 615 4 : 
; aes 616 4 ; 
; 236 0617 4 
i 937 O618 4 CIOS_DEACCESS] :  MTA_DEACCESS(); 
; $8 0620 4 (10$_DELETE] : (ERROR (SS$_ILLIOFUNC) ;0); : 
i 94] b6e¢ 4 [10$_MODIFY : MTA_MODIFY(); 
; es 0624 4 C10$_ACPCONTROL] : MTA_ACPCNTRL(); 
i 945 0626 4 (10$_MOUNT) : MTA_MOUNT() ; ; 
i gh? 0628 4 CINRANGE) : (ERROR (SS$_ILLIOFUNC) ; 0); : 
i 545 be80 4 COUTRANGE) : (ERROR (SS$_ILLIOFUNC) ; 0); ; 
: 250 0631 4 TES; ; 
; 251 ott: 4 : 
; $26 063 END; : 
; $2 0634 : 
254 0635 IF_.10_PACKET NEQ 0 : 
; 255 0636 N : 
i 356 0637 KERNEL_CALL(IO_DONE, .10_PACKET); ; 
: $34 0639 § END; ! end of while loop 3 
; 259 0640 : 
; 260 0641 1 END; ! end of routire : 


-PSECT $LOCKEDD1$,NOEXE 2 
00000 QUEUE _HEAD: : 
00004 DISK_UCB:: 
00008 I0_CHANNEL: : 
-BLKB 
0000C MAIL_CHANNEL: : 
.BLKB 
00010 FREE_PAGE_HEAD:: 
-BLKB 
00018 LAST_PAGE:: 
.BLKB 
0001C USER STATS 
00024 10_STATUS: : 
0002¢ 1O_PACKET:: 
00030 CURRENT_UCB: : 


~-~ @oorrtnwa fl F- fF £& 


C10$_CREATE : MTA_CREATE(); 
| 
| 
| 
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-BLKB 4 
00034 CURRENT_WCB:: 
-BLKB 4 
0038 HOR1:: .BLKB 4 
8 HDR2:: .BLKB 4 
0040 HDR i BLK 4 
0044 HDR4:: -BL 4 
0048 LOCAL, “FIB:: 28 


~BL 
00064 IMPURE END: : 
FFFFFFFF 00000000 00064 RANGE: .LONG 0, -1 : 


IMPURE _SIZE== 72 
.EXTRN END_OF_VOL, GET_REQ 
“EXTRN INIT_MTAACP, 107 DONE 
-EXTRN MTA_ACCESS, MTA-ACPCNTRL 
“EXTRN MTA-CREATE, MTAT DEACCESS 
“EXTRN MTATMODIFY, MTA-MOUNT 
SEXTRN SYSSPURGWS, SYSSCMKRNL 


«PSECT SCODES,NOWRT,2 


Save nothing 3; 0495 
5E 04 ¢2 00002 SUBL2 : : 
6D 0000v CF SE 00005 MOVAB EXCEPT_HNDLR, (FP) + 0584 
7E D4 OOO0A CLRL =(SP) : 0586 
SE pd 0000C PUSHL ; 
00006 CF 9F 9000E PUSHAB INIT_MTAACP : 
000000006 9F 03 FB 0001 CALLS #3, S#SYSSCMKRNL : 
0000' CF 9F 00019 PUSHAB RANG : 0587 
000000006 9F 01 FB 0001D CALLS #1, a#SYSSPURGWS : 
0048 8F 0 6E 00 2¢ 00024 18: MOVCS #0. (SP), #0, #72, USER_STATUS : 0595 
0000" CF 00028 F 
0000' CF 01 0 000 E MOVL = #1 USER _STATUS > 0596 
00006 30 000 BSBW _REQ : 0597 
0000" CF 50 DO 000 OVL i 10_p ACKET ; 
6E 20 a0 06 00 EF 0003B EXTZV 32(RO), FUNCTION : 0598 
0c 0B «AB 05 €1 00041 BC HT CCORRENT. VCB), 2$ : 0600 
34 6f D1 00046 CMPL Pct ON, # ; 
07 13 00049 BEQL 2 : 
0000v CF 00 FB 0004 CALLS #9 CANCEL > 0602 
11 909 RB 1 : 
0c 6F D1 2s: CMPL FUNCTION, #12 + 0605 
05 13 9005 BEQL 3$ ; 
08 of yl 5 CMPL §- FUNCTION, #11 ; 
07 12 OA BNEQ 4$ : 
00006 CF 00 FB 9 C 3$: CALLS #9 END_OF_VOL + 0607 
46 11 00061 BRB 13§ ; 
3 6E CF 063 4$: CASEL F NCTION, #50, #7 + 0611 
003¢ 9020 01 001 067 5$: WO $ ; 
0035 03C¢ 02 006F $-5$.- ; 
EP ~ 3 
$-38.- 5 
9$-5 3 
12$ at ; 


“| 
F 2 | 
CNTR 16-Sep-1984 02:11:48  VAX=11 Bliss-32 v4.0-742 Pa 8 | 
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10$-5$,- 
A 11 00077 “aaa 0630 
00006 CF 9 fe 19 6$: CALLS rh, MTA_ACCESS 
00006 CF 0 rs 7$: CALLS #0, MTA_CREATE 
00006 CF 65 re 0 t 8$: CALLS 0, MTA_DEACCESS 
00006 CF 00 re a098 9$: CALLS #0, MTA_MODIFY 0622 
00006 CF 0 FB 009 10$: CALLS #0 MTA_ACPCNTRL 0624 
D 11 9A BRB 13$ 
00006 CF 0 re 909¢ 11$ CALLS #0, MTA_MOUNT 0626 
00006 CF F4 BF 9B OO0A3 128 MOVZBW #244, USER_STATUS 0628 
50 0000" CF 09 OOA9 13$ MOVL 10 PACKET, ~RO 0635 
11 13 000A BEQL 148 
50 DD 0080 PUSHL RO 0637 
gi DD 000B PUSHL #1 
E DD 90084 PUSHL SP 
00006 CF 9F 000B6 PUSHAB I0_DONE 
000000006 9F 04 FB O00BA CALLS #47 a#SYSSCMKRNL 
FF60 31 O00C1 14$ BRW 1$ > 0589 


; Routine Size: 196 bytes, Routine Base: S$CODE$ + 0012 


; 261 0642 1 


Sete Se Ge Ge Se Ge Se Be Se Ge Se Ge Ge Se Ge Ge Ge Ge Se Ge Se Se & 
o fo 2S 
ao fa Oo 
-_-_- —_—_- — 
ono ff 


a 


} 
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H e B64? ! GLOBAL ROUTINE EXCEPT_HNDLR (SIGNAL, MECHANISM) : COMMON_CALL NOVALUE = | : 
; 265 pecs 1 44 ; 
3 08 B98 1! 3 
; 26 B96 1 ! FUNCTIONAL DESCRIPTION: $ 
: 268 648 1! This routine handles exceptions. This code stores the condition value ; 
; 269 0649 1! (if given) in the user status block, unwinds the stack, completes : 
; 270 0650 1! io and returns. F 
3 eri 0651 1! 3 
3; 2f bees 1! 5 
.- or 0655 1 ! CALLING SEQUENCE: 3 
; 74 0654 1! EXCEPT_HNLR(ARG1,ARG2) : 
, ae 0655 1! 3 
: 76 0656 1 ! INPUT PARAMETERS: $ 
: ger 0657 1! ARG! = address of signal array : 
; 278 0658 1! ARG2 - address of mechanism array : 
; 279 0659 1! 3 
3 oH 0660 1 ! IMPLICIT INPUTS: 3 
s 26) 0661 1! none : 
g soe 0662 1! ; 
; 2 066 1 ! OUTPUT PARAMETERS: : 
> 284 0664 1! none 3 
; 285 0665 1! 3 
: 286 0666 1 ! IMPLICIT OUTPUTS: : 3 
s 6aer 0667 1! USER_STATUS = receives exception parameter : 
> 288 0668 1 ! : 
3s eo 0669 1 ! ROUTINE VALUE: 3 
: 290 0670 1! none : 
3; (afl 0671 1! 5 
; $36 067 1 ! SIDE EFFECTS: 3 
3 2 0673 1! Stack is unwound to main level to continue processing requests. : 
: 294 0674 1! 3 
: 295 0675 1 !-- ; 
: 296 0676 1 3 
; 297 0677 2 BEGIN 3 
; 298 0678 2 3 
3 4.44 0679 2 EXTERNAL REGISTER § 
: 300 0680 2 COMMON_REG; 3 
; 301 0681 3 
3 $08 068 LOCAL ; k 3 
; 3 068 FUNCTION : BLOCK (1); ! jo request function with modifiers ; 
: 304 0684 3 
: 305 0685 3 
: 306 0686 SIGNAL : REF BBLOCK, ! signal array | : 
; 30 6 MECHANISM : REF BBLOCK; ! mechanism array F 
; 308 0688 3 
; 309 0689 EXTERNAL é : 
: 10 0690 CURRENT_WCB : REF BBLOCK, ' address of current window 3 
$ 11 0691 10_PACKET : REF BBLOCK, ' address of current io request packet $ 
: \¢ +84 USER_STATUS : WORD; ! status returned to user ; 
3; «4314 0694 EXTERNAL ROUTINE 3 
s 315 0695 SYSSUNWIND : ADDRESSING MODE (ABSOLUTE), ! unwind the stack. 3 
: 1 3696 TERMINATE VOL : COMMON_CALC, ! terminate activity on this volume : 
: : i Oeg ZERO_CHANREL : COMMON CALL; ' clean up user channel : 
: 319 69 ! Check the signal code. The only permissible ones are SSS$_UNWIND which is | 3 

| 

| 

} 
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' ignored and SS$ = fRODUSER. The error status is the 16 bit CHMU code. If 
! the error value is non_zero, store it in the user status, ge ye the 
! i/o, unwind the stack and return to the control module. e error 
! value is zero the user status is not changed but the i/o is completed, 
the stack is unwound and the return is to the control module. 
if «SIGNALCCHFSL_SIG_NAME] EQL SS$_UNWIND 
RETURN; 
if SIGNAL CCHF SL_S1G_NAME NEQ SS$_CMODUSER 
BUG_ CHECK (UNXSIGNAL) ; 
' Get 10 function, and mask out the create bit, then if access modifier bit 
i set on a valid “access type’’ function THEN clean user channel 
NCTI 
IF (.FUNCTION EQL (10$ ACCESS OR IOSM_ACCESS)) 
o (.FUNCTION EQL (IOS"CREATE OR IOSM_ iit hee 
KERNEL _CALL(ZERO_CHANNEL, .10_PACKET); 
error to be returned to user 
if SIGNALCCHFSL_S1G_ARG11 NEQ 0 
USER_STATUS = .SIGNALCCHFS$L_SIG_ARG1]; 
return all blocked io in error 
if NOT . CURRENT_VCBCLVCB$V_WAIUSRLBLJ 
KERNEL_CALL (RETURN_ALL_ERR); 


f tape position lost, then force user to close open files and reposition 
t beginning of volume set 


SIGNALCCHFS$L_SIG_ARG1] EQL SS$_TAPEPOSLOST 
KERNEL_CALL(TERMINATE_VOL, .CURRENT_VCBCVCBSL_WCB)); 
SYSSUNWIND (MECHANISMCCHFSL_MCH_DEPTH], 0); 

RETURN; 


o-.- 


END; 
.EXTRN SYSSUNWIND, TERMINATE VOL 
-EXTRN ZERO_CHANNEL, BUGS_UNRSIGNAL 
fi .ENTRY EXCEPT WNDLR, + Save R2,R3 
3 000000006 t $i MOVAB a@ASYSSTMKR 
0 MOVL SIGNAL, RGN 
00000920 = &F r CMPL 4(RO), #2336 


42 
DISKSVMSMASTER: CMTAACP. SRCJCNTRL. B32:1 


2 
1b-se -1984 02:11:48 | VAX-11 Bliss-32 v4.0-762 Page 11 
1 ~300 71387 95:13:48 DISKSVMSMASTER:CMTAACP. SRCIJCNTRL.B32:1> (4) 
7F 13 0001 BEQL 6 7$ ; 
00000424 8F 04 Ad pj 3 CMPL  4(RO), #1060 : 0711 
OEE BOOes ho UCU : 0713 
Mitt : «WORD  <BUG$_UNXSIGNAL!4> : | 
50 00996 CF pO 1$: MOVL | PACKET, + 0718 
s 0 a nae ea cree : 
00000072 = &F i D4 ; CPL BUNCTION, #114 + 0719 
00000073 —s &F 9 Di 000 CMPL §- FUNCTION, #115 t 0720 
gp 12 04 BNEQ 3$ : 
DD 00045 2$ PUSHL RO : 0722 
gi DD 00047 PUSHL #1 : 
E DD 00049 PUSHL SP : 
00006 CF 9F 0004B PUSHAB ZERO_CHANNEL : 
63 04 FB OQ04F CALLS #4, SYSSCMKRNL F 
50 04 AC 00 00052 3s: MOVL § SIGNAL, RO + 0726 
52 08 AO 00 00056 MOVL (RO), R : 
03 13 0005A BEQL 4$ ; 
0000G CF 2 BO 0005C MOVW R2, USER_STATUS ; 0728 
0B AB 04 £0 90061 4$ BBS #4, 11(CORRENT_VCB), 5$ : 0732 
7E D4 9066 CLRL 0s = §P) + 0734 
5E DD 9006 PUSHL SP F 
0000v CF 9F 0006A PUSHAB RETURN ALL_ERR ; 
63 03 FB Bones CALLS #3, SYSSCMRRNL s 
00000224 BF 52 D1 00071 5$ CMPL R2. #548 : 0739 
0—E 12 00078 BNEG : 
38 AB DD OOO7A PUSHL  56(CURRENT_VCB) + 0741 
01 OD 90070 PUSHL #1 : 
5E DD 0007F PUSHL SP : 
00006 CF 9F 90081 PUSHAB TERMINATE_VOL ; 
63 04 FB 00085 CALLS #4, SYSSCAKRNL : 
7E D4 00088 6S: CLRL. = (§P) + 0743 
7E 08 Ac 08 C1 O008A ADDL3 #8, MECHANISM, -(SP) : 
000000006 9F 02 FB 0008F CALLS #2, @#SYSSUNWIND F 
04 00096 7$ RET : 0746 


; Routine Size: 151 bytes, Routine Base: SCODES + 00D6 


; 367 0747 1 


————— 


2 
CNTR 18-56 -1984 02:11: VAX-11 Bliss-32 V4.0-742 P 12 
13-88-1382 95:10:48 DISKSVMSMASTER:CMTAACP. SRCICNTRL.B32:1> (5) 


i 


; 4 0749 1 GLOBAL ROUTINE RETURN_ALL_ERR : COMMON_CALL NOVALUE = : 
ae 750 1 !44 3 
; if 751 1! 3 
ae 7 § 1 ! FUNCTIONAL DESCRIPTION: : 
: re f ? ! : This routine returns all blocked io with the error given in user_status ‘ 
; 376 73s 1 ! CALLING SEQUENCE: 3 
3 As 6728 ' } RETURN_ALL_ERROR, called in kernel mode : 
; 379 0758 1 ! INPUT PARAMETERS: 3 
; 380 739 1! none F 
; 38) 760 1! 3 
; 366 761 1 =! IMPLICIT INPUTS: F 
3 o 54 ! CURRENT_VCB ~ address of current volume control block : 
3 3B¢ 0764 1 ! OUTPUT PARAMETERS: ‘ 
: 386 0765 1! none : 
: 387 0766 1! 3 
; 388 0767 1°! IMPLICIT OUTPUTS: 3 
; 389 0768 1! none F 
; 390 0769 1! 3 
> 391 0770 1 ! ROUTINE VALUE: 3 
tw 0771 1! none : 
: 39 140: 4 3 
3: 394 0775 1! SIDE EFFECTS: 3 
; 395 0774 1! none : 
; 396 0775 1! : 
; 397 0776 1 ! USER ERRORS: : 
; 398 0777 1! none 5 
; 399 0778 1! $ 
: 400 0779 1 !-- 3 
: 401 0780 1 3 
; 40 0781 BEGIN 3 
; 40 th 3 
: 404 078 EXTERNAL REGISTER F 
; 405 0784 COMMON : 3 
; 406 0785 3 
; 407 0786 EXTERNAL ROUTINE : 
: 408 0787 10_DONE; ! complete io 3 
3; 409 0788 3 
: 410 0789 EXTERNAL : 
: oh ta USER_STATUS; ! status to be returned to user : 
; “18 Oe LOCAL 3 
3 6414 79 STATUS, ' save status : 
; 415 Boe PACKET : REF BBLOCK; : 
3 ois 795 3 
3 (41 796 STATUS = .USER_STATUS; : save status : 
3 rh | a dA USER_STATUS<16, 16> = 0; ! these io's have no transfer count ; 
: 420 799 WHILE 1 F 
: 421 nt F 
; : g 0 BEGIN ; 
: 4264 ; : IF REMQUE(.CURRENT_VCBCVCBSL_BLOCKFLJ, PACKET) 3 
: 425 0804 THEN 3 


CHTRL 1b-seo-1984 03:11:48 VAX=11 Bliss- -32 V4.0-742 13 CO! 
V04 14-Sep-1984 12:46:36  DISKSVMSMASTER:CMTAACP. SRCICNTRL. B32. 1% 65) vO 
; 4 $ oe EXITLOOP; 
: 428 PACKETCIRP$V_VIRTUAL] = 0; 
: ‘ 9 08 TO DONEC. RPACRET = make sure not seen again 
: 431 B16 
: 4 11 USER_STATUS = .STATUS; 
: 438 B12 acetal ecg Boren 
000¢ 00000 ENTRY RETURN_ALL_ERR, Save R2,R3 : 07 
53 90006 CF DG 09002 OVL USER. STATUS. StAtUs. : Ore 
0006 CF B4 00 LRW USER’ ST : 079 
52 00 if i 0B 1$ REMQUE 90 (CORRENT. vcB), PACKET + 0803 
ie Pie He He, beeen : 
00006 CF 3 FB 7 CALLS . 10_DONE ; es 
00006 CF gg D0 OIF 2$ MOVL § STATUS, USER_STATUS + 0811 
04 0002 RET + 0812 


; Routine Size: 36 bytes, Routine Base: S$CODE$S + 016D 


; 434 0813 1 
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CNTR 18-s¢ =1984 02:11: VAX-11 Bliss-32 V4.0-742 P 
v04- 1 tae 1 95:10:38 DISKSVMSMASTER: CMTAAC "SRCICNTRL.B32:1> 


0000 00000 CANCEL: .WORD Save nothing ; 0814 
0830 8F BF 00002 CHMU #2096 : §83¢ 
04 00006 RET ; 085 


; Routine Size: 7 bytes, Routine Base: S$CODE$ + 0191 


$ : 1 1 ROUTINE CANCEL : COMMON_CALL NGOVALUE = ; 
; 438 1 1 !+4 ; 
3; 439 ja : 
; 440 18 1 ! FUNCTIONAL DESCRIPTION: ; 
3; 441 19 1! This routine signals the cancel error. The call is necessary so ; 
; ia 8 Y : } that the unwind returns to the control module and not exit : 
> 446 i | CALLING SEQUENCE: ; 
3: «445 BB : 1! : 
3; 646 0824 1 ! INPUT PARAMETERS: . 
> 447 4 i F none : 
3 448 61! ; 
3; 64469 7 4 ! FMPLICIT INPUTS: > 
; 450 0828 1! none : 
3; 451 0829 1! : 
: $26 0830 1 ! OUTPUT PARAMETERS: : 
s 65 0831 1! none : 
: 454 oes 1! . 
: 455 ot 1 ! IMPLICIT OUTPUTS: : 
; 456 0834 1! none ; 
3; 457 0835 1! : 
; 458 0836 1 ! ROUTINE VALUE: 3 
; 459 0837 1! none . 
: 460 0838 1! : 
: 461 0839 1 ! SIDE EFFECTS: : 
; re 4 0840 1! none : 
: 46 0841 1! : 
: 464 berg 1 ! USER ERRORS: . 
: 465 0845 1! none . 
; 466 0844 1! : 
; 467 0845 1 !-- : 
; 468 0846 1 ’ 
; 469 0847 BEGIN : 
: 470 0848 ; 
3; 471 0849 EXTERNAL REGISTER : 
: 472 0850 COMMON_REG; : 
3; 473 0851 é 
> 474 0832 ERR_EXIT(SS$_CANCEL); : 
> 475 0853 1 END? : 


4 


CHTARCE SRcJCNTRL.B3209%" (os 


voa= IE8S0c1984 93:14:48 YMLTaghLEtC 


PSECT SUMMARY 


3 Name Bytes Attributes 

: $CODES 48 WOVE seg a » .EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SLOCKEDDIS$ WRT, RD .NOEXE,NOSHR, LCL, REL. CON.NOPIC.ALIGN(0) 
; 2 WBS NOVER! *NOWRT. NORD »NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 


Library Statistics 


: cocceees Symbols -<----- - Pages Processing 
: File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBILIB.L32;1 18619 31 0 1000 00:01.9 
: COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CNTRL/OBJ=OBJ$:CNTRL MSRC$:CNTRL/UPDATE=(ENH$:CNTRL) 
; dag 408 code + 108 data bytes 
un Time: 00:12.1 


pth Time: 00:46.1 
Lines/CPU Min: 424 
ey A fade 18074 
penety Used: 121 pages 
Compilation Complete 
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